﻿Public Class clsGJBDLInfo
    ''' <summary>
    ''' 查询吊篮信息
    ''' </summary>
    ''' <param name="dl_no">吊篮号</param>
    ''' <returns>吊篮信息ID、片数、重量</returns>
    Friend Function selectUnusedDLForNo(dl_no As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT a.*,b.sys_id,b.mes_project_code,b.mes_project_name FROM sf.b_gjb_dl_info a left join sf.b_gt_pgd_mes b on a.pgd_id = b.sys_id::character "
        szSql &= " WHERE a.dl_no = ? and a.status <> '2'"
        Dim rtn As DataTable = DBacs.ExecuteSql(szSql, -1, dl_no)
        Return rtn
    End Function
End Class
